home *** CD-ROM | disk | FTP | other *** search
/ Graphics Plus / Graphics Plus.iso / general / fractal / kaos.lha / autolib / create_auto_windows.c < prev    next >
Encoding:
C/C++ Source or Header  |  1990-01-17  |  17.6 KB  |  443 lines
  1. /*
  2. ### create an auto window ###
  3. */
  4.  
  5. #include "../include/auto_kaos_def.h"
  6. #include <suntool/sunview.h>
  7. #include <suntool/panel.h>
  8. #include <suntool/textsw.h>
  9.  
  10.  
  11. void create_auto_windows()
  12. {
  13.  
  14.     int i,ipanel_row;
  15.     extern short auto_panel_show;
  16.     extern int ycanvas,ywidth,b_margin;
  17.     extern Frame frame,auto_frame;
  18.     extern Panel auto_panel;
  19.     extern Panel_item auto_panel_quit_item,auto_panel_go_item, auto_panel_load_item, auto_panel_write_init_item,
  20.         auto_dir_name_item, auto_file_name_item, auto_input_name_item;
  21.     extern Pixfont *boldfont;
  22.     extern Textsw auto_textsw;
  23.     extern Textsw_status auto_status; 
  24.     extern char string[],string2[],auto_dir_name[],auto_file_name[],auto_input_name[];
  25.         void auto_panel_quit_proc(),auto_panel_go_proc(),auto_panel_load_proc(),auto_panel_write_init_proc();
  26.     /* AUTO86 declerations */
  27.     extern int panel_colormap_on;
  28.     extern int auto_ndim,auto_ips,auto_irs,auto_ilp;
  29.     extern int auto_ntst,auto_ncol,auto_iad,auto_isp,auto_isw,auto_iplt;
  30.     extern int auto_nbc,auto_nint,auto_nmx,auto_npr,auto_mxbf,auto_iid;
  31.     extern int auto_itmx,auto_itnw,auto_nwtn,auto_jac,auto_nuzr;
  32.     extern int auto_n1,auto_n2,auto_nfpar,auto_icp[];
  33.     extern double auto_rl0,auto_rl1,auto_a0,auto_a1,auto_par[];
  34.     extern double auto_epsu,auto_epss,auto_epsl[],auto_ds,auto_dsmin,auto_dsmax;
  35.     extern double auto_thetau,auto_thetal[];
  36.  
  37.     extern Panel_item auto_ndim_item,auto_ips_item,auto_irs_item,auto_ilp_item;
  38.     extern Panel_item auto_ntst_item,auto_ncol_item,auto_iad_item,auto_isp_item,auto_isw_item,auto_iplt_item;
  39.     extern Panel_item auto_nbc_item,auto_nint_item,auto_nmx_item,auto_npr_item,auto_mxbf_item,auto_iid_item;
  40.     extern Panel_item auto_itmx_item,auto_itnw_item,auto_nwtn_item,auto_jac_item,auto_nuzr_item;
  41.     extern Panel_item auto_nfpar_item,auto_icp_item[];
  42.     extern Panel_item auto_rl0_item,auto_rl1_item,auto_a0_item,auto_a1_item,auto_par_item[];
  43.     extern Panel_item auto_epsu_item,auto_epss_item,auto_epsl_item[],auto_ds_item,auto_dsmin_item,auto_dsmax_item;
  44.     extern Panel_item auto_thetau_item,auto_thetal_item[];
  45.  
  46.     if(auto_panel_show){
  47.             window_set(auto_frame, WIN_SHOW, TRUE,0);
  48.         return;
  49.     }
  50.     else
  51.         auto_panel_show = 1;
  52.  
  53.     ipanel_row=0;
  54.         auto_frame = window_create(frame,FRAME,FRAME_LABEL,"auto",
  55.                 FRAME_SHOW_LABEL,       TRUE,
  56.         FRAME_NO_CONFIRM,    TRUE,
  57.                 WIN_SHOW,       TRUE,
  58.                 WIN_X, 0,
  59.         WIN_Y, ycanvas-b_margin-ywidth,
  60.         WIN_WIDTH,    800,
  61.         WIN_HEIGHT,    600,
  62.         WIN_FONT, boldfont,
  63.                 0);
  64.     if(auto_frame == NULL) {
  65.         system_mess_proc(1,"No more windows. Clean up some windows to make room.");
  66.         (void) destroy_auto_windows();
  67.         return;
  68.     }
  69.  
  70.     ipanel_row=0;
  71.         auto_panel = window_create(auto_frame, PANEL,
  72.         WIN_X,    0,
  73.         WIN_Y,    0,
  74.         WIN_FONT, boldfont,
  75.         0);
  76.     if(auto_panel == NULL) {
  77.         system_mess_proc(1,"No more windows. Clean up some windows to make room.");
  78.         (void) destroy_auto_windows();
  79.         return;
  80.     }
  81.         auto_panel_quit_item= panel_create_item(auto_panel,PANEL_BUTTON,
  82.                 PANEL_LABEL_Y,  ATTR_ROW(ipanel_row++),
  83.                 PANEL_LABEL_X,  ATTR_COL(0),
  84.                 PANEL_LABEL_IMAGE,panel_button_image(auto_panel,"Quit",8,boldfont),
  85.                 PANEL_NOTIFY_PROC,auto_panel_quit_proc,
  86.                 0);
  87.         auto_panel_go_item= panel_create_item(auto_panel,PANEL_BUTTON,
  88.                 PANEL_LABEL_X,  ATTR_COL(10),
  89.                 PANEL_LABEL_IMAGE,panel_button_image(auto_panel,"Go",8,boldfont),
  90.                 PANEL_NOTIFY_PROC,auto_panel_go_proc,
  91.                 0);
  92.         auto_panel_load_item= panel_create_item(auto_panel,PANEL_BUTTON,
  93.                 PANEL_LABEL_X,  ATTR_COL(20),
  94.                 PANEL_LABEL_IMAGE,panel_button_image(auto_panel,"Load",8,boldfont),
  95.                 PANEL_NOTIFY_PROC,auto_panel_load_proc,
  96.                 0);
  97.         auto_panel_write_init_item= panel_create_item(auto_panel,PANEL_BUTTON,
  98.                 PANEL_LABEL_X,  ATTR_COL(30),
  99.                 PANEL_LABEL_IMAGE,panel_button_image(auto_panel,"Write Init",9,boldfont),
  100.                 PANEL_NOTIFY_PROC,auto_panel_write_init_proc,
  101.                 0);
  102.         auto_dir_name_item = panel_create_item(auto_panel,PANEL_TEXT,
  103.                 PANEL_LABEL_Y,  ATTR_ROW(ipanel_row++),
  104.                 PANEL_LABEL_X,  ATTR_COL(0),
  105.                 PANEL_VALUE,    auto_dir_name,
  106.                 PANEL_VALUE_DISPLAY_LENGTH, 40,
  107.                 PANEL_LABEL_STRING, "Dir:",
  108.                 0);
  109.         auto_file_name_item = panel_create_item(auto_panel,PANEL_TEXT,
  110.                 PANEL_LABEL_Y,  ATTR_ROW(ipanel_row++),
  111.                 PANEL_LABEL_X,  ATTR_COL(0),
  112.                 PANEL_VALUE,    auto_file_name,
  113.                 PANEL_VALUE_DISPLAY_LENGTH, 30,
  114.                 PANEL_LABEL_STRING, "Command:",
  115.                 0);
  116.         auto_input_name_item = panel_create_item(auto_panel,PANEL_TEXT,
  117.                 PANEL_LABEL_X,  ATTR_COL(40),
  118.                 PANEL_VALUE,    auto_input_name,
  119.                 PANEL_VALUE_DISPLAY_LENGTH, 30,
  120.                 PANEL_LABEL_STRING, "Input File:",
  121.                 0);
  122.  
  123.     sprintf(string,"%lg",auto_rl0);
  124.         auto_rl0_item = panel_create_item(auto_panel,PANEL_TEXT,
  125.                 PANEL_LABEL_Y,  ATTR_ROW(ipanel_row++),
  126.                 PANEL_LABEL_X,  ATTR_COL(0),
  127.                 PANEL_VALUE,    string,
  128.                 PANEL_VALUE_DISPLAY_LENGTH, 16,
  129.                 PANEL_LABEL_STRING, "rl0:",
  130.                 0);
  131.     sprintf(string,"%lg",auto_rl1);
  132.         auto_rl1_item = panel_create_item(auto_panel,PANEL_TEXT,
  133.                 PANEL_LABEL_X,  ATTR_COL(25),
  134.                 PANEL_VALUE,    string,
  135.                 PANEL_VALUE_DISPLAY_LENGTH, 16,
  136.                 PANEL_LABEL_STRING, "rl1:",
  137.                 0);
  138.     sprintf(string,"%lg",auto_a0);
  139.         auto_a0_item = panel_create_item(auto_panel,PANEL_TEXT,
  140.                 PANEL_LABEL_X,  ATTR_COL(50),
  141.                 PANEL_VALUE,    string,
  142.                 PANEL_VALUE_DISPLAY_LENGTH, 16,
  143.                 PANEL_LABEL_STRING, "a0:",
  144.                 0);
  145.     sprintf(string,"%lg",auto_a1);
  146.         auto_a1_item = panel_create_item(auto_panel,PANEL_TEXT,
  147.                 PANEL_LABEL_X,  ATTR_COL(75),
  148.                 PANEL_VALUE,    string,
  149.                 PANEL_VALUE_DISPLAY_LENGTH, 16,
  150.                 PANEL_LABEL_STRING, "a1:",
  151.                 0);
  152.  
  153.     sprintf(string,"%lg",auto_epsu);
  154.         auto_epsu_item = panel_create_item(auto_panel,PANEL_TEXT,
  155.                 PANEL_LABEL_Y,  ATTR_ROW(ipanel_row++),
  156.                 PANEL_LABEL_X,  ATTR_COL(0),
  157.                 PANEL_VALUE,    string,
  158.                 PANEL_VALUE_DISPLAY_LENGTH, 16,
  159.                 PANEL_LABEL_STRING, "epsu:",
  160.                 0);
  161.     sprintf(string,"%lg",auto_epss);
  162.         auto_epss_item = panel_create_item(auto_panel,PANEL_TEXT,
  163.                 PANEL_LABEL_X,  ATTR_COL(25),
  164.                 PANEL_VALUE,    string,
  165.                 PANEL_VALUE_DISPLAY_LENGTH, 16,
  166.                 PANEL_LABEL_STRING, "epss:",
  167.                 0);
  168.     sprintf(string,"%lg",auto_epsl[0]);
  169.         auto_epsl_item[0] = panel_create_item(auto_panel,PANEL_TEXT,
  170.                 PANEL_LABEL_X,  ATTR_COL(50),
  171.                 PANEL_VALUE,    string,
  172.                 PANEL_VALUE_DISPLAY_LENGTH, 16,
  173.                 PANEL_LABEL_STRING, "epsl0:",
  174.                 0);
  175.     sprintf(string,"%lg",auto_epsl[1]);
  176.         auto_epsl_item[1] = panel_create_item(auto_panel,PANEL_TEXT,
  177.                 PANEL_LABEL_X,  ATTR_COL(75),
  178.                 PANEL_VALUE,    string,
  179.                 PANEL_VALUE_DISPLAY_LENGTH, 16,
  180.                 PANEL_LABEL_STRING, "epsl1:",
  181.                 0);
  182.  
  183.     sprintf(string,"%lg",auto_ds);
  184.         auto_ds_item = panel_create_item(auto_panel,PANEL_TEXT,
  185.                 PANEL_LABEL_Y,  ATTR_ROW(ipanel_row++),
  186.                 PANEL_LABEL_X,  ATTR_COL(0),
  187.                 PANEL_VALUE,    string,
  188.                 PANEL_VALUE_DISPLAY_LENGTH, 16,
  189.                 PANEL_LABEL_STRING, "ds:",
  190.                 0);
  191.     sprintf(string,"%lg",auto_dsmin);
  192.         auto_dsmin_item = panel_create_item(auto_panel,PANEL_TEXT,
  193.                 PANEL_LABEL_X,  ATTR_COL(25),
  194.                 PANEL_VALUE,    string,
  195.                 PANEL_VALUE_DISPLAY_LENGTH, 16,
  196.                 PANEL_LABEL_STRING, "dsmin:",
  197.                 0);
  198.     sprintf(string,"%lg",auto_dsmax);
  199.         auto_dsmax_item = panel_create_item(auto_panel,PANEL_TEXT,
  200.                 PANEL_LABEL_X,  ATTR_COL(50),
  201.                 PANEL_VALUE,    string,
  202.                 PANEL_VALUE_DISPLAY_LENGTH, 16,
  203.                 PANEL_LABEL_STRING, "dsmax:",
  204.                 0);
  205.                 
  206.     sprintf(string,"%lg",auto_thetau);
  207.         auto_thetau_item = panel_create_item(auto_panel,PANEL_TEXT,
  208.                 PANEL_LABEL_Y,  ATTR_ROW(ipanel_row++),
  209.                 PANEL_LABEL_X,  ATTR_COL(0),
  210.                 PANEL_VALUE,    string,
  211.                 PANEL_VALUE_DISPLAY_LENGTH, 16,
  212.                 PANEL_LABEL_STRING, "thetau:",
  213.                 0);
  214.     sprintf(string,"%lg",auto_thetal[0]);
  215.         auto_thetal_item[0] = panel_create_item(auto_panel,PANEL_TEXT,
  216.                 PANEL_LABEL_X,  ATTR_COL(25),
  217.                 PANEL_VALUE,    string,
  218.                 PANEL_VALUE_DISPLAY_LENGTH, 16,
  219.                 PANEL_LABEL_STRING, "thetal0:",
  220.                 0);
  221.     sprintf(string,"%lg",auto_thetal[1]);
  222.         auto_thetal_item[1] = panel_create_item(auto_panel,PANEL_TEXT,
  223.                 PANEL_LABEL_X,  ATTR_COL(50),
  224.                 PANEL_VALUE,    string,
  225.                 PANEL_VALUE_DISPLAY_LENGTH, 16,
  226.                 PANEL_LABEL_STRING, "thetal1:",
  227.                 0);
  228.  
  229.     sprintf(string,"%d",auto_ndim);
  230.         auto_ndim_item = panel_create_item(auto_panel,PANEL_TEXT,
  231.                 PANEL_LABEL_Y,  ATTR_ROW(ipanel_row++),
  232.                 PANEL_LABEL_X,  ATTR_COL(0),
  233.                 PANEL_VALUE,    string,
  234.                 PANEL_VALUE_DISPLAY_LENGTH, 6,
  235.                 PANEL_LABEL_STRING, "ndim:",
  236.                 0);
  237.     sprintf(string,"%d",auto_ips);
  238.         auto_ips_item = panel_create_item(auto_panel,PANEL_TEXT,
  239.                 PANEL_LABEL_X,  ATTR_COL(15),
  240.                 PANEL_VALUE,    string,
  241.                 PANEL_VALUE_DISPLAY_LENGTH, 6,
  242.                 PANEL_LABEL_STRING, "ips:",
  243.                 0);
  244.     sprintf(string,"%d",auto_irs);
  245.         auto_irs_item = panel_create_item(auto_panel,PANEL_TEXT,
  246.                 PANEL_LABEL_X,  ATTR_COL(30),
  247.                 PANEL_VALUE,    string,
  248.                 PANEL_VALUE_DISPLAY_LENGTH, 6,
  249.                 PANEL_LABEL_STRING, "irs:",
  250.                 0);
  251.     sprintf(string,"%d",auto_ilp);
  252.         auto_ilp_item = panel_create_item(auto_panel,PANEL_TEXT,
  253.                 PANEL_LABEL_X,  ATTR_COL(45),
  254.                 PANEL_VALUE,    string,
  255.                 PANEL_VALUE_DISPLAY_LENGTH, 6,
  256.                 PANEL_LABEL_STRING, "ilp:",
  257.                 0);
  258.  
  259.     sprintf(string,"%d",auto_ntst);
  260.         auto_ntst_item = panel_create_item(auto_panel,PANEL_TEXT,
  261.                 PANEL_LABEL_Y,  ATTR_ROW(ipanel_row++),
  262.                 PANEL_LABEL_X,  ATTR_COL(0),
  263.                 PANEL_VALUE,    string,
  264.                 PANEL_VALUE_DISPLAY_LENGTH, 6,
  265.                 PANEL_LABEL_STRING, "ntst:",
  266.                 0);
  267.     sprintf(string,"%d",auto_ncol);
  268.         auto_ncol_item = panel_create_item(auto_panel,PANEL_TEXT,
  269.                 PANEL_LABEL_X,  ATTR_COL(15),
  270.                 PANEL_VALUE,    string,
  271.                 PANEL_VALUE_DISPLAY_LENGTH, 6,
  272.                 PANEL_LABEL_STRING, "ncol:",
  273.                 0);
  274.     sprintf(string,"%d",auto_iad);
  275.         auto_iad_item = panel_create_item(auto_panel,PANEL_TEXT,
  276.                 PANEL_LABEL_X,  ATTR_COL(30),
  277.                 PANEL_VALUE,    string,
  278.                 PANEL_VALUE_DISPLAY_LENGTH, 6,
  279.                 PANEL_LABEL_STRING, "iad:",
  280.                 0);
  281.     sprintf(string,"%d",auto_isp);
  282.         auto_isp_item = panel_create_item(auto_panel,PANEL_TEXT,
  283.                 PANEL_LABEL_X,  ATTR_COL(45),
  284.                 PANEL_VALUE,    string,
  285.                 PANEL_VALUE_DISPLAY_LENGTH, 6,
  286.                 PANEL_LABEL_STRING, "isp:",
  287.                 0);
  288.     sprintf(string,"%d",auto_isw);
  289.         auto_isw_item = panel_create_item(auto_panel,PANEL_TEXT,
  290.                 PANEL_LABEL_X,  ATTR_COL(60),
  291.                 PANEL_VALUE,    string,
  292.                 PANEL_VALUE_DISPLAY_LENGTH, 6,
  293.                 PANEL_LABEL_STRING, "isw:",
  294.                 0);
  295.     sprintf(string,"%d",auto_iplt);
  296.         auto_iplt_item = panel_create_item(auto_panel,PANEL_TEXT,
  297.                 PANEL_LABEL_X,  ATTR_COL(75),
  298.                 PANEL_VALUE,    string,
  299.                 PANEL_VALUE_DISPLAY_LENGTH, 6,
  300.                 PANEL_LABEL_STRING, "iplt:",
  301.                 0);
  302.  
  303.     sprintf(string,"%d",auto_nbc);
  304.         auto_nbc_item = panel_create_item(auto_panel,PANEL_TEXT,
  305.                 PANEL_LABEL_Y,  ATTR_ROW(ipanel_row++),
  306.                 PANEL_LABEL_X,  ATTR_COL(0),
  307.                 PANEL_VALUE,    string,
  308.                 PANEL_VALUE_DISPLAY_LENGTH, 6,
  309.                 PANEL_LABEL_STRING, "nbc:",
  310.                 0);
  311.     sprintf(string,"%d",auto_nint);
  312.         auto_nint_item = panel_create_item(auto_panel,PANEL_TEXT,
  313.                 PANEL_LABEL_X,  ATTR_COL(15),
  314.                 PANEL_VALUE,    string,
  315.                 PANEL_VALUE_DISPLAY_LENGTH, 6,
  316.                 PANEL_LABEL_STRING, "nint:",
  317.                 0);
  318.     sprintf(string,"%d",auto_nmx);
  319.         auto_nmx_item = panel_create_item(auto_panel,PANEL_TEXT,
  320.                 PANEL_LABEL_X,  ATTR_COL(30),
  321.                 PANEL_VALUE,    string,
  322.                 PANEL_VALUE_DISPLAY_LENGTH, 6,
  323.                 PANEL_LABEL_STRING, "nmx:",
  324.                 0);
  325.     sprintf(string,"%d",auto_npr);
  326.         auto_npr_item = panel_create_item(auto_panel,PANEL_TEXT,
  327.                 PANEL_LABEL_X,  ATTR_COL(45),
  328.                 PANEL_VALUE,    string,
  329.                 PANEL_VALUE_DISPLAY_LENGTH, 6,
  330.                 PANEL_LABEL_STRING, "npr:",
  331.                 0);
  332.     sprintf(string,"%d",auto_mxbf);
  333.         auto_mxbf_item = panel_create_item(auto_panel,PANEL_TEXT,
  334.                 PANEL_LABEL_X,  ATTR_COL(60),
  335.                 PANEL_VALUE,    string,
  336.                 PANEL_VALUE_DISPLAY_LENGTH, 6,
  337.                 PANEL_LABEL_STRING, "mxbf:",
  338.                 0);
  339.     sprintf(string,"%d",auto_iid);
  340.         auto_iid_item = panel_create_item(auto_panel,PANEL_TEXT,
  341.                 PANEL_LABEL_X,  ATTR_COL(75),
  342.                 PANEL_VALUE,    string,
  343.                 PANEL_VALUE_DISPLAY_LENGTH, 6,
  344.                 PANEL_LABEL_STRING, "iid:",
  345.                 0);
  346.                 
  347.     sprintf(string,"%d",auto_itmx);
  348.         auto_itmx_item = panel_create_item(auto_panel,PANEL_TEXT,
  349.                 PANEL_LABEL_Y,  ATTR_ROW(ipanel_row++),
  350.                 PANEL_LABEL_X,  ATTR_COL(0),
  351.                 PANEL_VALUE,    string,
  352.                 PANEL_VALUE_DISPLAY_LENGTH, 6,
  353.                 PANEL_LABEL_STRING, "itmx:",
  354.                 0);
  355.     sprintf(string,"%d",auto_itnw);
  356.         auto_itnw_item = panel_create_item(auto_panel,PANEL_TEXT,
  357.                 PANEL_LABEL_X,  ATTR_COL(15),
  358.                 PANEL_VALUE,    string,
  359.                 PANEL_VALUE_DISPLAY_LENGTH, 6,
  360.                 PANEL_LABEL_STRING, "itnw:",
  361.                 0);
  362.     sprintf(string,"%d",auto_nwtn);
  363.         auto_nwtn_item = panel_create_item(auto_panel,PANEL_TEXT,
  364.                 PANEL_LABEL_X,  ATTR_COL(30),
  365.                 PANEL_VALUE,    string,
  366.                 PANEL_VALUE_DISPLAY_LENGTH, 6,
  367.                 PANEL_LABEL_STRING, "nwtn:",
  368.                 0);
  369.     sprintf(string,"%d",auto_jac);
  370.         auto_jac_item = panel_create_item(auto_panel,PANEL_TEXT,
  371.                 PANEL_LABEL_X,  ATTR_COL(45),
  372.                 PANEL_VALUE,    string,
  373.                 PANEL_VALUE_DISPLAY_LENGTH, 6,
  374.                 PANEL_LABEL_STRING, "jac:",
  375.                 0);
  376.     sprintf(string,"%d",auto_nuzr);
  377.         auto_nuzr_item = panel_create_item(auto_panel,PANEL_TEXT,
  378.                 PANEL_LABEL_X,  ATTR_COL(60),
  379.                 PANEL_VALUE,    string,
  380.                 PANEL_VALUE_DISPLAY_LENGTH, 6,
  381.                 PANEL_LABEL_STRING, "nuzr:",
  382.                 0);
  383.                 
  384.     sprintf(string,"%d",auto_nfpar);
  385.         auto_nfpar_item = panel_create_item(auto_panel,PANEL_TEXT,
  386.                 PANEL_LABEL_Y,  ATTR_ROW(ipanel_row++),
  387.                 PANEL_LABEL_X,  ATTR_COL(0),
  388.                 PANEL_VALUE,    string,
  389.                 PANEL_VALUE_DISPLAY_LENGTH, 6,
  390.                 PANEL_LABEL_STRING, "nfpar:",
  391.                 0);
  392.     
  393.     for(i=0;i<AUTO_NFPAR_MAX;i++){
  394.         sprintf(string,"%d",auto_icp[i]);
  395.         sprintf(string2,"icp%d",i);
  396.             auto_icp_item[i] = panel_create_item(auto_panel,PANEL_TEXT,
  397.                     PANEL_LABEL_X,  ATTR_COL((i+1) * 15),
  398.                     PANEL_VALUE,    string,
  399.                     PANEL_VALUE_DISPLAY_LENGTH, 6,
  400.                     PANEL_LABEL_STRING, string2,
  401.                     0);
  402.     }
  403.  
  404.     for(i=0;i<AUTO_ALL_PARAM_DIM;i++){
  405.         sprintf(string,"%lg",auto_par[i]);
  406.         sprintf(string2,"P%d:",i);
  407.             auto_par_item[i] = panel_create_item(auto_panel,PANEL_TEXT,
  408.                     PANEL_LABEL_Y,  ATTR_ROW(ipanel_row),
  409.                     PANEL_LABEL_X,  ATTR_COL((i % 4) * 20),
  410.                     PANEL_VALUE,    string,
  411.                     PANEL_VALUE_DISPLAY_LENGTH, 16,
  412.                     PANEL_LABEL_STRING, string2,
  413.                     0);
  414.         if(i % 4 == 3)
  415.             ipanel_row++;
  416.     }
  417.  
  418.     window_fit_height(auto_panel);
  419.     if(panel_colormap_on)
  420.         init_panel_colormap((Pixwin *) window_get(auto_panel,WIN_PIXWIN),"auto_panel_cms");
  421.  
  422.  
  423.         sprintf(string,"%s/%s",auto_dir_name,auto_input_name);
  424.         auto_textsw = window_create(auto_frame, TEXTSW,
  425.         0);
  426.     if(auto_textsw == NULL){
  427.         system_mess_proc(1,"No more windows. Clean up some windows to make room.");
  428.         (void) destroy_auto_windows();
  429.         return;
  430.     }
  431.         window_set(auto_textsw,
  432.                 TEXTSW_STATUS, &auto_status,
  433.                 TEXTSW_FILE,string,
  434.                 TEXTSW_FIRST,0,
  435.                 0);
  436.         if(auto_status == TEXTSW_STATUS_CANNOT_OPEN_INPUT){
  437.                 sprintf(string2,"File (%s) does not exist!\n",string);
  438.         system_mess_proc(1,string2);
  439.         }       
  440.     if(panel_colormap_on)
  441.         init_panel_colormap((Pixwin *) window_get(auto_textsw,WIN_PIXWIN),"auto_textsw_cms");
  442. }
  443.